1 REM
2 REM PROBLEM #24-2 :
3 REM  PYRAMIDAL PRINTOUT
4 REM SOLUTION BY
5 REM  RON WEINER
6 REM
10 OPEN 4,3:INPUT"OUTPUT TO SCREEN OR PRINTER (S/P)   S[157][157][157]";A$:IF A$="S"GOTO 30
20 CLOSE 4 : OPEN 4,4
30 INPUT "ENTER ANY WORD WHICH HAS SAME FIRST AND LAST LETTERS";W$
40 PRINT#4,SPC(LEN(W$)-1)LEFT$(W$,1)
50 FORI=2 TO LEN(W$)-1:PRINT#4,SPC(LEN(W$)-I)MID$(W$,I,1)SPC(I*2-3)MID$(W$,I,1)
60 NEXT:FOR I=1 TO LEN(W$):PRINT#4,MID$(W$,I,1)" ";:NEXT:PRINT#4:CLOSE4